﻿Imports extranet.BC
Imports extranet.BE

Partial Class noticias_apagarNoticia
  Inherits System.Web.UI.Page

  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim noticia As Noticia = New Noticia()
    If (Request("idNoticia") IsNot Nothing) Then
      noticia.Id = Integer.Parse(Request("idNoticia"))
      If (noticia.Id <> -1) Then BCNoticia.Deletar(noticia)
    End If
    Response.Redirect("administrarNoticias.aspx")

  End Sub
End Class
